home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 66 / 64er_Magazin_Sonderheft_66_19xx_Markt__Technik_de_Side_A.d64 / harte dollars (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  14KB  |  327 lines
  1. 0 rem ***     harte dollars      ***
  2. 1 rem (c) + (e) by parasoft 01.86
  3. 2 rem programmiert von juergen braun
  4. 3 rem grafische gestaltung, anleitung
  5. 4 rem und beschreibung norbert braun
  6. 5 rem das programm basiert auf einer
  7. 6 rem grundidde des gesellschafts-
  8. 7 rem spiels 'dallas' der firma noris,
  9. 8 rem waldstr. 38, 8510 fuerth.
  10. 9 rem ***     harte dollars       ***
  11. 10 poke51,0:poke52,128:poke55,0:poke56,128:clr:gosub4460:v=53248:pokev+21,0
  12. 20 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3:w=si+4:a1=si+5:h=si+6:l=si+24
  13. 30 fora=sitosi+24:pokea,0:next:pokel,15
  14. 40 dimk$(26),ko%(5,4),f$(4),k%(25),ek$(24),c%(19),n$(4),do(4),sp%(4),sx%(21)
  15. 50 dimsy%(21),wu$(6),bi%(5,4),ba%(21),kw%(24),ek%(24)
  16. 60 k$(0)="@hab[157][157][157][157]fikg[157][157][157][157]cjde":k$(1)="[150]@lmb[157][157][157][157]fnog[157][157][157][157]cpqe"
  17. 70 k$(2)="[158]@+,b[157][157][157][157]f-.g[157][157][157][157]/012":k$(3)="[158]@34b[157][157][157][157]f56g[157][157][157][157](dd)"
  18. 80 k$(4)="[158]@78b[157][157][157][157]f9:g[157][157][157][157]/012":k$(5)="[153]rstu[157][157][157][157]vwxy[157][157][157][157]]z[\"
  19. 90 k$(6)="[153]rstu[157][157][157][157]vwxy[157][157][157][157]^z[\":k$(7)="[153]rstu[157][157][157][157]vwxy[157][157][157][157][161]z[\"
  20. 100 k$(8)="[153]rstu[157][157][157][157]vwxy[157][157][157][157]_z[\":k$(9)=";<=>[157][157][157][157]?[192][193][194][157][157][157][157]^z[\"
  21. 110 k$(10)=";[195][196]>[157][157][157][157]?[197][198][194][157][157][157][157]_z[\":k$(11)=";[199][200]>[157][157][157][157]?[201][202][194][157][157][157][157]!z[\"
  22. 120 :
  23. 130 k$(12)="[203][195][196][204][157][157][157][157][205][206][207][208][157][157][157][157]#z[\":k$(13)="@78b[157][157][157][157]f9:g[157][157][157][157][209]z$e"
  24. 140 k$(14)="@78b[157][157][157][157]f9:g[157][157][157][157]]z%&":k$(15)="@78b[157][157][157][157]f9:g[157][157][157][157]^z%&"
  25. 150 k$(16)="@78b[157][157][157][157]f9:g[157][157][157][157][209]z%&":k$(17)="@+,b[157][157][157][157]f-.g[157][157][157][157][209]z$e"
  26. 160 k$(18)="@+,b[157][157][157][157]f-.g[157][157][157][157]]z%&":k$(19)="@+,b[157][157][157][157]f-.g[157][157][157][157]^z%&"
  27. 170 k$(20)="@+,b[157][157][157][157]f-.g[157][157][157][157][209]z%&":k$(21)="@34b[157][157][157][157]f56g[157][157][157][157]]z%&"
  28. 180 k$(22)="@34b[157][157][157][157]f56g[157][157][157][157]^z%&":k$(23)="@34b[157][157][157][157]f56g[157][157][157][157]_z%&"
  29. 190 k$(24)="@34b[157][157][157][157]f56g[157][157][157][157]]z[\":k$(25)="[162][163][164][165][157][157][157][157][166][167][168][169][157][157][157][157][170][171][172][173]"
  30. 200 k$(26)="[149][210][211][221][212][157][157][157][157][213][214][215][216][157][157][157][157][217][218][220][219]"
  31. 210 wu$(1)="   [157][157][157] [209] [157][157][157]   ":wu$(2)="   [157][157][157][209] [209][157][157][157]   "
  32. 220 wu$(3)="[209]  [157][157][157] [209] [157][157][157]  [209]":wu$(4)="[209] [209][157][157][157]   [157][157][157][209] [209]"
  33. 230 wu$(5)="[209] [209][157][157][157] [209] [157][157][157][209] [209]":wu$(6)="[209] [209][157][157][157][209] [209][157][157][157][209] [209]"
  34. 240 f$(0)="[129]":f$(1)="":f$(2)="":f$(3)="[158]":f$(4)="[154]"
  35. 250 k%(13)=2:k%(14)=2:k%(15)=1:k%(16)=1:k%(17)=2:k%(18)=2:k%(19)=1:k%(20)=1
  36. 260 k%(21)=2:k%(22)=2:k%(23)=1:k%(24)=1:k%(25)=2
  37. 270 poke56576,(peek(56576)and252)or1
  38. 280 poke56578,peek(56578)or3
  39. 290 poke53272,(peek(53272)and15)or0
  40. 300 poke648,128:gosub1880:gosub4470:gosub4500:poke2,111
  41. 310 fora=828to828+107:readq:pokea,q:next
  42. 320 fora=33792to33792+62:readq:pokea,q:next
  43. 330 fora=0to21:readq:sx%(a)=q:readq:sy%(a)=q:next
  44. 340 fora=13to24:readq:kw%(a)=q:next
  45. 350 fora=0to24:ek%(a)=1:next
  46. 360 fory=1to4:forx=1to5
  47. 370 v%=rnd(0)*13+13:k%(v%)=k%(v%)-1
  48. 380 ifk%(v%)<0then370
  49. 390 ko%(x,y)=v%
  50. 400 nextx,y
  51. 410 ek$(0)="du kannst land kaufen. 5000$/area":c%(0)=5000
  52. 420 ek$(1)="du kannst land kaufen. 2000$/area":c%(1)=2000
  53. 430 ek$(2)="du kannst land kaufen. 1000$/area":c%(2)=1000
  54. 440 ek$(3)="aus anlass der 200-jahr-feier des staa- tes texas wird ein gratis"
  55. 450 ek$(3)=ek$(3)+"area ver-      schenkt. bitte wuerfeln sie.":c%(3)=0
  56. 460 ek$(4)="das gouvernment von texas kauft oel,    farmland und rinder zum "
  57. 470 ek$(4)=ek$(4)+"tageskurs."
  58. 480 ek$(5)="das gouvernment von texas kauft rinder  zum tageskurs."
  59. 490 ek$(6)="das gouvernment von texas kauft farmlandzum tageskurs."
  60. 500 ek$(7)="das gouvernment von texas kauft oel zum tageskurs."
  61. 510 ek$(8)="[158]konkurs!!! du must deinen gesamten be-  sitz (oel, rinder, farm"
  62. 520 ek$(8)=ek$(8)+"land) zum tages- kurs verkaufen."
  63. 530 ek$(9)="[158]steuerschulden! zwingen dich zum verkaufdeiner rinder zum tages"
  64. 540 ek$(9)=ek$(9)+"kurs."
  65. 550 ek$(10)="[158]pech beim pokern! dein farmland muss zumtageskurs verkauft"
  66. 560 ek$(10)=ek$(10)+" werden."
  67. 570 ek$(11)="[158]schlechte geschaefte! geldschwierigkei- ten zwingen dich zum "
  68. 580 ek$(11)=ek$(11)+"verkauf deiner     oelquellen."
  69. 590 ek$(12)="!!betrug!! dein partner hat dich um dei-nen gesamten besitz geb"
  70. 600 ek$(12)=ek$(12)+"racht. dir bleibtnur noch das bargeld."
  71. 610 ek$(13)="trockenzeit! deine rinderherden gehen   verloren."
  72. 620 ek$(14)="durch eine naturkatastrophe wurde dein  farmland zerstoert."
  73. 630 ek$(15)="ein bohrlochbrand hat dein gesamtes oel vernichtet."
  74. 640 ek$(16)="[158]rinderseuche! du musst 10$ pro rind fuerarznei und tierarzt be"
  75. 650 ek$(16)=ek$(16)+"zahlen.":c%(16)=-10
  76. 660 ek$(17)="[158]ein hurrikan hat dein farmland verwues- tet. aufraeumungsarbeiten"
  77. 670 ek$(17)=ek$(17)+" kosten 10$ prohektar.":c%(17)=-10
  78. 680 ek$(18)="[158]die rohoelaufbereitung kostet dich 5$   pro barrel.":c%(18)=-5
  79. 690 ek$(19)="!! g o l d f u n d !! in der wueste. diebank zahlt pro wuesten"
  80. 700 ek$(19)=ek$(19)+"area 100000$.":c%(19)=10000
  81. 710 ek$(20)="010010005":ek$(21)="020020010"
  82. 720 ek$(22)="030030015":ek$(23)="050050025"
  83. 730 ek$(24)="100100050"
  84. 740 poke53280,0:poke53281,0
  85. 750 print:print"[147]"tab(7)"druecke feuer zum start"
  86. 760 ifpeek(56321)=239thenfe=239:jd=253:pe=56321:ru=255:ju=254:goto800
  87. 770 ifpeek(56320)=111thenfe=111:jd=125:pe=56320:ru=127:ju=126:goto800
  88. 780 goto760
  89. 790 forz=1to100:next:j=peek(pe):ifj=juorj<>jdgoto810
  90. 800 printtab(7)"[145]anleitung       start  ":an=1:goto790
  91. 810 ifj=juthenprinttab(7)"[145]anleitung       start  ":an=0
  92. 820 ifj=fegoto840
  93. 830 goto790
  94. 840 ifan=0then1650
  95. 850 print"[147]"tab(15)"anleitung:":printtab(4)"$$$ h a r t e  d o l l a r s $$$"
  96. 860 print"ziel des spiels ist, soviel geld wie "
  97. 870 print"moeglich durch guenstigen kauf und ge-"
  98. 880 print"winnbringenden verkauf von rinderherden,"
  99. 890 print"oelquellen und farmland zu erwirtschaf-"
  100. 900 print"ten. eine zusaetzliche einnahmequelle"
  101. 910 print"sind die pachtgelder fuer ranchbesitzer."
  102. 920 print"je oefter man rinderherden, oelquellen"
  103. 930 print"und farmland kauft und wieder verkauft,"
  104. 940 print"desto schneller waechst der reichtum.":poke198,0:wait198,1
  105. 950 print"[147]"tab(14)"spielverlauf:"
  106. 960 print"nach dem wuerfeln zieht jeder spieler"
  107. 970 print"mit seiner spielfigur in pfeilrichtung"
  108. 980 print"auf den randfeldern. auf diesem rundkurs"
  109. 990 print"kann der spieler auf 4 verschiedene fel-"
  110. 1000 print"dertypen gelangen."
  111. 1010 print"1. ereignisfeld:";:printtab(18)k$(1)
  112. 1020 print"der computer waehlt zufaellig aus dem"
  113. 1030 print"stapel der ereigniskarten eine aus."
  114. 1040 print"diese kann entweder eine gute informa-"
  115. 1050 print"tion oder eine sehr schlechte tragen.":poke198,0:wait198,1
  116. 1060 print"[147]ausserdem werden neue boersennachrichten"
  117. 1070 print"aus dem stapel gezogen, die den kurs"
  118. 1080 print"fuer an- und verkauf von guetern fest-"
  119. 1090 print"legen."
  120. 1100 print"2. landkauffelder:"tab(19)k$(6)
  121. 1110 print"hier besteht die moeglichkeit, zu dem"
  122. 1120 print"angegebenen betrag land zu kaufen."
  123. 1130 print"land, das frei oder im besitz eines"
  124. 1140 print"mitspielers ist, geht in den eigenen"
  125. 1150 print"besitz ueber. das betreffende land wird"
  126. 1160 print"mit dem zahlen-buchstaben-wuerfel ermit-"
  127. 1170 print"telt.":poke198,0:wait198,1
  128. 1180 print"[147]3. subventions-felder:"
  129. 1190 printtab(5)k$(2)tab(10)"[145][146]rinder"
  130. 1200 printtab(5)k$(3)tab(10)"[145][146]oel"
  131. 1210 printtab(5)k$(4)tab(10)"[145][146]farmland"
  132. 1220 print"der spieler, der auf eines der drei"
  133. 1230 print"felder gelangt, erhaelt von der bank den"
  134. 1240 print"betrag ausbezahlt, der sich aus der auf-"
  135. 1250 print"gedruckten subvention und dem entspre-"
  136. 1260 print"chenden besitz errechnet.":poke198,0:wait198,1
  137. 1270 print"[147]bsp.: ein spieler hat insgesamt 2500 "
  138. 1280 print"rinder (aus mehreren landstuecken)."
  139. 1290 print"er erhaelt auf dem subvent.feld 'rinder'"
  140. 1300 print"2500 * 10$ = 25000$."
  141. 1310 print"4. ranchfelder:"tab(17)"[129]"k$(10)
  142. 1320 print"a. das feld ist noch frei: der spieler,"
  143. 1330 print"der auf dieses feld gelangt, kann -muss"
  144. 1340 print"nicht- das ranchfeld zum aufgedruckten"
  145. 1350 print"preis kaufen. als besitzer kann er nun"
  146. 1360 print"von mitspielern, die auf sein ranchfeld"
  147. 1370 print"ziehen, pacht verlangen.":poke198,0:wait198,1
  148. 1380 print"[147]hinweis: wer alle felder einer ranch"
  149. 1390 print"besitzt, darf doppelte pacht kassieren."
  150. 1400 print"b. das feld ist im besitz eines anderen"
  151. 1410 print"spielers: in diesem falle muss an den"
  152. 1420 print"besitzer pacht bezahlt werden, die sich"
  153. 1430 print"wie folgt errechnet: 10% vom kaufpreis"
  154. 1440 print"des ranchfeldes + 2000$ pro landstueck."
  155. 1450 print"bsp.: spieler b gelangt auf ein"
  156. 1460 print"**-ranch-feld von spieler a. spieler a"
  157. 1470 print"besitzt ausserdem 4 landstuecke (ohne "
  158. 1480 print"wueste). das ergibt folgende pacht:":poke198,0:wait198,1
  159. 1490 print"[147]10% von 40000$ = 4000$"
  160. 1500 print"4 x 2000$      = 8000$"
  161. 1510 printtab(16)"[197][197][197][197][197][197]":printtab(16)"12000$"
  162. 1520 print"5. spielende:"
  163. 1530 print"ist ein spieler nicht mehr zahlungsfae-"
  164. 1540 print"hig, werden seine laender fuer 20000$"
  165. 1550 print"(einheitspreis) von der bank gekauft;"
  166. 1560 print"ranches zum urspruenglichen kaufpreis."
  167. 1570 print"der spieler, der keinen besitz und kein"
  168. 1580 print"geld mehr hat, scheidet aus.":poke198,0:wait198,1
  169. 1590 print"[147]zudem besteht die moeglichkeit die"
  170. 1600 print"spielzeit vorzugeben. der computer"
  171. 1610 print"unterbricht nach ablauf der zeit das"
  172. 1620 print"spiel und zeigt den aktuellen spielstand"
  173. 1630 print"an."
  174. 1640 print"und nun viel spass und gute geschaefte.":poke198,0:wait198,1
  175. 1650 print"[147]wieviele spieler wollen mitspielen?     (2-4)"
  176. 1660 geta$:ifval(a$)<2orval(a$)>4then1660
  177. 1670 print"geben sie bitte ihre namen ein:":b=val(a$)
  178. 1680 fora=1tob:printa"[157].spieler";:inputn$(a):do(a)=600000:next:sa=b
  179. 1690 print"wie lange wollen sie spielen?           (0.5 - 2 stunden)"
  180. 1700 print"geben sie bitte so ein 'ssmmss'!"
  181. 1710 inputze$:iflen(ze$)<>6then1710
  182. 1720 ze=val(ze$):ifze<3000then1710
  183. 1730 ifze>20000then1710
  184. 1740 ti$="000000":gosub4460:gosub2110:gosub2250:zu%=rnd(1)*5+20:gosub2340
  185. 1750 ek%(zu%)=0:gosub4470:fora=33784to33787:pokea,16:next
  186. 1760 pokev+39,5:pokev+40,2:pokev+41,7:pokev+42,14
  187. 1770 pokev,sx%(0):pokev+1,sy%(0):pokev+2,sx%(0)-7:pokev+3,sy%(0)
  188. 1780 pokev+4,sx%(0)-14:pokev+5,sy%(0):pokev+6,sx%(0)-21:pokev+7,sy%(0)
  189. 1790 pokev+28,15:pokev+37,1:pokev+21,2^sa-1:sys828
  190. 1800 forb=1tosa:sys882:ifp%(b)=1then1840
  191. 1810 gosub2250:gosub2360:sys828:gosub2380:gosub2420:gosub2470:gosub2540
  192. 1820 gosub4430
  193. 1830 ifdo(b)<0thengosub3770
  194. 1840 z=0:fora=1to4:ifp%(a)=0thenz=z+1
  195. 1850 nexta:ifz=1then3940
  196. 1860 nextb:ifval(ti$)>zethen3940
  197. 1870 goto1800
  198. 1880 poke53280,15:poke53281,15
  199. 1890 print"[147][129][223][223] [223] [223][223][223] [223] [223][223][223] [223] [223][223]  [223][223] [223] [223][223][223] [223] [223][223][223] [223] [223][223]";
  200. 1900 print"{$7f} {$7f}{$7f}{$7f}   {$7f}{$7f}{$7f}   {$7f}{$7f}{$7f}  {$7f}{$7f}  {$7f}{$7f}{$7f}   {$7f}{$7f}{$7f}   {$7f}{$7f}{$7f} {$7f}";
  201. 1910 print" {$7f} {$7f} {$7f}{$7f}{$7f} {$7f} {$7f}{$7f}{$7f} {$7f} {$7f}{$7f}  {$7f}{$7f} {$7f} {$7f}{$7f}{$7f} {$7f} {$7f}{$7f}{$7f} {$7f} {$7f}
  202. 1920 [153]"(NULL) (NULL) (NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL) (NULL) (NULL)";
  203. 1930 [153]"(NULL) (NULL)"[166]34)"(NULL) (NULL) (NULL)(NULL)"[166]6)"(NULL)  (NULL)  (NULL)(NULL)  (NULL)(NULL)(NULL)  (NULL)(NULL)(NULL) (NULL)(NULL)(NULL)"[166]6)"for(NULL)(NULL)
  204. 1940 print"[223]"spc(8)"[255]  [255] [255]  [255] [255]  [255]  [255]  [255]"spc(10)"[129][223]";
  205. 1950 print" [223][223]"spc(6)"[255][255][255][255] [255]  [255] [255][255][255]   [255]  [255][255] "spc(6)"[129][223][223]
  206. 1960 [153]"(NULL)(NULL)(NULL)"[166]6)"(NULL)  (NULL) (NULL)(NULL)(NULL)(NULL) (NULL) (NULL)   (NULL)  (NULL)"[166]8)"for(NULL)(NULL)(NULL)";
  207. 1970 [153]"(NULL) (NULL)"[166]6)"(NULL)  (NULL) (NULL)  (NULL) (NULL)  (NULL)  (NULL)  (NULL)(NULL)(NULL)"[166]6)"for(NULL) (NULL)";
  208. 1980 [153]"(NULL)(NULL)(NULL)"[166]34)"(NULL)(NULL)(NULL)(NULL) (NULL)"[166]34)"(NULL) (NULL)";
  209. 1990 [153]" (NULL)  poke(NULL)(NULL)(NULL)   (NULL)(NULL)  (NULL)   (NULL)    (NULL)(NULL)  (NULL)(NULL)(NULL)   (NULL)(NULL)(NULL)  for(NULL)
  210. 2000 print"[223] [223] [151][255][255] [255] [255][255] [255] [255]   [255]   [255][255] [255] [255][255] [255] [255][255]   [129][223] [223]";
  211. 2010 print"[223][223][223] [151][255][255] [255] [255][255] [255] [255]   [255]   [255][255] [255] [255][255][255]   [255][255]  [129][223][223][223]";
  212. 2020 print"[223] [223] [151][255][255] [255] [255][255] [255] [255][255][255] [255][255][255] [255][255][255][255] [255][255][255]    [255][255] [129][223] [223]";
  213. 2030 print"[223][223][223] [151][255][255][255]   [255][255]  [255][255][255] [255][255][255] [255][255] [255] [255][255] [255] [255][255][255]  [129][223][223][223]";
  214. 2040 print" [223][223]"spc(34)"[223][223]
  215. 2050 [153]"(NULL)"[166]38)"(NULL) (NULL)(NULL)   wait(c) + (e) by  parasoft 12.85   for(NULL)(NULL)
  216. 2060 print"[223] [223]"spc(34)"[223] [223][223] [223] [223][223][223][223][223] [223][223][223][223][223] [223][223][223][223][223][223][223][223] [223][223][223][223][223] [223][223][223][223][223] [223] [223]";
  217. 2070 print" [223] [223] [223][223][223] [223] [223][223][223] [223] [223][223]  [223][223] [223] [223][223][223] [223] [223][223][223] [223] [223]
  218. 2080 [153]"(NULL) (NULL)(NULL)(NULL)   (NULL)(NULL)(NULL)   (NULL)(NULL)(NULL)  (NULL)(NULL)  (NULL)(NULL)(NULL)   (NULL)(NULL)(NULL)   (NULL)(NULL)(NULL) (NULL)";
  219. 2090 [153]"(NULL)(NULL) (NULL) (NULL)(NULL)(NULL) (NULL) (NULL)(NULL)(NULL) (NULL) (NULL)(NULL)  (NULL)(NULL) (NULL) (NULL)(NULL)(NULL) (NULL) (NULL)(NULL)(NULL) (NULL) (NULL)";
  220. 2100 [151]33767,95[170]128:[151]56295,8:[142]
  221. 2110 [153][199](147);
  222. 2120 [153][166]7)"1   2   3   4   5"[166]7)"f:"
  223. 2130 [153][166]31)"r:"
  224. 2140 [153][163]2)k$(3)"onon"k$(1)"ononfor"k$(11)"onon"k$(11)"onon"k$(11)"onon"k$(7);
  225. 2150 [153]"onon"k$(4)"waitonon o:cmdcmdcmdwaitortantantan=tantantan^cmdcmdcmdcmdcmdcmdcmdcmdcmd(NULL)   (NULL)   (NULL)"
  226. 2160 [153][163]2)k$(6)[166]20)"onon"k$(1)"ononwait(NULL)   (NULL)   (NULL)cmdcmdcmdcmdcmdcmdcmdcmdcmd(NULL)   (NULL)   (NULL)";
  227. 2170 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmd/tantantan>tantantanexp"
  228. 2180 [153][163]2)"for"k$(10)[166]20)"onon"k$(12)
  229. 2190 [153][163]2)"for"k$(10)[166]20)"onon"k$(12)
  230. 2200 [153][163]2)k$(1)[166]20)"onon"k$(8)
  231. 2210 [153][163]2)k$(2)"onon"k$(5)"ononfor"k$(9)"onon"k$(9)"onon"k$(9)"onon"k$(1);
  232. 2220 [153]"onon"k$(0):[153]"acmdbcmdccmdd"
  233. 2230 [129]y[178]1[164]4:[153][163]6);:[129]x[178]1[164]5:[153]k$(26)"onon";:[130]:[153]"":[130]
  234. 2240 [142]
  235. 2250 [153]""[163]31)"spieler1print":[153][163]30)"         on"
  236. 2260 [153][163]30)[196](do(1))"$"
  237. 2270 [153]""[163]31)"spieler2print":[153][163]30)"         on"
  238. 2280 [153][163]30)[196](do(2))"$"
  239. 2290 [153]""[163]31)"sysspieler3print":[153][163]30)"         on"
  240. 2300 [153][163]30)[196](do(3))"$"
  241. 2310 [153]""[163]31)"contspieler4print":[153][163]30)"         on"
  242. 2320 [153][163]30)[196](do(4))"$"
  243. 2330 [142]
  244. 2340 fa[178][197]([200](ek$(zu%),3)):ri[178][197]([202](ek$(zu%),4,3))
  245. 2350 oe[178][197]([201](ek$(zu%),3))
  246. 2360 [153]""[163]33)fa"cmd$ cmdcmd"
  247. 2370 [153][163]33)ri"cmd$ cmdcmd":[153][163]33)oe"cmd$ cmdcmd":[142]
  248. 2380 y[178]31:x[178]5[170]b[172]3
  249. 2390 [141]4480:[153]"stopspieler":[141]4480:[129]z[178]1[164]60:[130]:[153]"spieler"
  250. 2400 j[178][194](pe):[139]j[178]ru[167]2390
  251. 2410 [142]
  252. 2420 zz[178]0:wn%[178][187](1)[172]6[170]1:x[178]4:y[178]31
  253. 2430 [129]z[178]1[164][187](1)[172]6[170]8:[141]4480:[153]f$(0)wu$([187](1)[172]6[170]1)
  254. 2440 zz[178]zz[170]25:[141]4200:[130]z
  255. 2450 [141]4480:[153]wu$(wn%):[129]z[178]1[164]750:[130]
  256. 2460 [142]
  257. 2470 ap%[178]sp%(b)[170]1:sp%(b)[178]sp%(b)[170]wn%
  258. 2480 [129]a[178]ap%[164]sp%(b)
  259. 2490 [139]a[177]21[167][151]v[170]b[172]2[171]2,sx%(a[171]22)[171](b[171]1)[172]7:[151]v[170]b[172]2[171]1,sy%(a[171]22):[137]2510
  260. 2500 [151]v[170]b[172]2[171]2,sx%(a)[171](b[171]1)[172]7:[151]v[170]b[172]2[171]1,sy%(a)
  261. 2510 [141]4240:[130]a
  262. 2520 [139]sp%(b)[177]21[167]sp%(b)[178]sp%(b)[171]22
  263. 2530 [142]
  264. 2540 [139]sp%(b)[178]0[167]x[178]21:y[178]2:[141]4480:[153]"startfeld - ruhepause!":[142]
  265. 2550 [139]sp%(b)[178]1[176]sp%(b)[178]7[176]sp%(b)[178]12[176]sp%(b)[178]18[167]2960
  266. 2560 [139]sp%(b)[178]5[176]sp%(b)[178]10[176]sp%(b)[178]16[176]sp%(b)[178]21[167]2760
  267. 2570 [139]sp%(b)[178]6[176]sp%(b)[178]11[176]sp%(b)[178]17[167]2870
  268. 2580 x[178]21:y[178]2:[139]ba%(sp%(b))[178]b[167][141]4480:[153]"eigene ranch betreten":[142]
  269. 2590 vv%[178]sp%(b):[139]vv%[177]1[175]vv%[179]5[167]kp[178]20000
  270. 2600 [139]vv%[177]7[175]vv%[179]10[167]kp[178]40000
  271. 2610 [139]vv%[177]12[175]vv%[179]16[167]kp[178]60000
  272. 2620 [139]vv%[177]18[175]vv%[179]21[167]kp[178]80000
  273. 2630 [139]ba%(vv%)[179][177]0[167]2670
  274. 2640 [139]kp[177]do(b)[167]x[178]21:y[178]2:[141]4480:[153]"zu wenig kapital zum kauf!":[142]
  275. 2650 [141]4480:[153]"wollen sie fuer"kp"$ kaufen?":[141]4280:[139]an[178]0[167][142]
  276. 2660 do(b)[178]do(b)[171]kp:ba%(sp%(b))[178]b:[141]4370:[142]
  277. 2670 kp[178]kp[173]10:a[178]1:zz[178]0:[141]4480:[153]"fremde ranch betreten,"
  278. 2680 [139]kp[178]2000[175]ba%(2)[178]ba%(3)[175]ba%(3)[178]ba%(4)[167]a[178]2
  279. 2690 [139]kp[178]4000[175]ba%(8)[178]ba%(9)[167]a[178]2
  280. 2700 [139]kp[178]6000[175]ba%(13)[178]ba%(14)[175]ba%(14)[178]ba%(15)[167]a[178]2
  281. 2710 [139]kp[178]8000[175]ba%(19)[178]ba%(20)[167]a[178]2
  282. 2720 z[178]ba%(vv%):[129]y[178]1[164]4:[129]x[178]1[164]5
  283. 2730 [139]bi%(x,y)[178]z[175]ko%(x,y)[179][177]25[167]zz[178]zz[170]1
  284. 2740 [130]x,y:kp[178](kp[170]zz[172]2000)[172]a:[153]"die pacht betraegt"kp"$"
  285. 2750 do(b)[178]do(b)[171]kp:do(z)[178]do(z)[170]kp:[142]
  286. 2760 [139]sp%(b)[178]5[176]sp%(b)[178]10[167]kp[178]2000[172]sp%(b)
  287. 2770 [139]sp%(b)[178]16[176]sp%(b)[178]21[167]kp[178]2000[172](sp%(b)[171]1)
  288. 2780 [139]kp[177]do(b)[167]x[178]21:y[178]2:[141]4480:[153]"zu wenig kapital zum kauf!":[142]
  289. 2790 x[178]21:y[178]2:[141]4480:[153]"wollen sie fuer"kp"$ land kaufen?"
  290. 2800 [141]4280:[139]an[178]0[167][142]
  291. 2810 [141]4330:vv%[178]bi%(wn%,wa%):[139]vv%[178]b[167]2810
  292. 2820 [139]vv%[179][177]0[167]do(vv%)[178]do(vv%)[170]kp:bi%(wn%,wa%)[178]b
  293. 2830 do(b)[178]do(b)[171]kp:bi%(wn%,wa%)[178]b:[158]882:[141]2250:x[178]2[170]wa%[172]3:y[178]2[170]wn%[172]4
  294. 2840 [141]4480:[153]f$(b)k$(ko%(wn%,wa%)):[158]828
  295. 2850 [139]ko%(wn%,wa%)[178]25[167][141]4220
  296. 2860 [142]
  297. 2870 x[178]21:y[178]2:[141]4480:[153]"subventionsfeld, sie erhalten:"
  298. 2880 zz[178]0:[139]sp%(b)[178]6[167]a[178]10:x1[178]16:x2[178]21:[137]2910
  299. 2890 [139]sp%(b)[178]11[167]a[178]5:x1[178]20:x2[178]25:[137]2910
  300. 2900 a[178]10:x1[178]12:x2[178]17
  301. 2910 [129]y[178]1[164]4:[129]x[178]1[164]5
  302. 2920 [139]bi%(x,y)[178]b[175]ko%(x,y)[177]x1[175]ko%(x,y)[179]x2[167]zz[178]zz[170]kw%(ko%(x,y))
  303. 2930 [130]x,y:zz[178]zz[172]a:do(b)[178]do(b)[170]zz
  304. 2940 x[178]23:y[178]2:[141]2250:[141]4480:[139]zz[177]0[167][153]zz"dollar.":[142]
  305. 2950 [153]"leider nichts.":[142]
  306. 2960 x[178]21:y[178]2:[141]4480:[153]"informationsfeld:":zz[178]0
  307. 2970 [129]a[178]0[164]24:[139]ek%(a)[178]1[167]zz[178]1
  308. 2980 [130]a:[139]zz[178]0[167][129]a[178]0[164]24:ek%(a)[178]1:[130]
  309. 2990 zu%[178][187](1)[172]25:[139]ek%(zu%)[178]0[167]2990
  310. 3000 ek%(zu%)[178]0:[139]zu%[177]19[167][153]"neue boersennachrichten!"
  311. 3010 [139]zu%[177]19[167][141]4430:[158]882:[141]2340:[158]828:[142]
  312. 3020 [139]zu%[177]15[175]zu%[179]19[167]3090
  313. 3030 [139]zu%[178]19[167]3170
  314. 3040 [139]zu%[177]11[175]zu%[179]16[167]3220
  315. 3050 [139]zu%[177]7[175]zu%[179]12[167]3340
  316. 3060 [139]zu%[177]3[175]zu%[179]8[167]3480
  317. 3070 [153]ek$(zu%):[141]4430:[158]882
  318. 3080 kp[178]c%(zu%):[137]2780
  319. 3090 zz[178]0:[153]ek$(zu%):[141]4430:[158]882
  320. 3100 [139]zu%[178]16[167]a[178]16:z[178]21
  321. 3110 [139]zu%[178]17[167]a[178]12:z[178]17
  322. 3120 [139]zu%[178]18[167]a[178]20:z[178]25
  323. 3130 [129]y[178]1[164]4:[129]x[178]1[164]5
  324. 3140 [139]bi%(x,y)[178]b[175]ko%(x,y)[177]a[175]ko%(x,y)[179]z[167]zz[178]zz[170]kw%(ko%(x,y))
  325. 3150 [130]x,y:zz[178]zz[172]c%(zu%):do(b)[178]do(b)[170]zz:x[178]21:y[178]2:[141]4480
  326. 3160 [153]"die kosten daf
  327.